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IBILITY FOR THE USE OR RELIABILITY OF ITS 
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: D. N. CUTLER 1-OCT-76 

MODIFIED BY: 


V03-018 RASO0327 Ron Schaefer 24-Jul-1984 
Change STRNLNM item List to use the retlen parameter, 
and only check a word-sized length value. 


v03-017 LMP0271 L. Mark Pilant, 29-Jun-1984 13:06 
Disallow ACLs on shared memory “mailboxes. 


v03-016 LJK0285 Lawrence J. Kenah 29-May-1984 
Check status returned by invocation of LOCK nacre. Exit 
with error if attempt to gain interlock fails. 


V03-015 RNHOOO1 Richard N. Holstein 08-May-1984 
Fix ee in CREATE_SHMUCB which omitted a register. 


v03-014 TMKO Todd M. Katz 28-Apr-1984 
men, EXESCREMBX to tneveene the gize of the Logical name 

ate with a mailbox so iat = con be yutl size zed 
- 0 < LOGNAM size =< LNMSC NGTH th s is 
accoe ;cane through use of a KRP* ‘Ghen'a a astent name is 
spe he, t is translated by the tatornes executive routine 
MAG MBXT RNLOG. The KRP is utilized a the buffer to contain the 
translated logical name, or the spesst) stiee oe name 
MMGSMBXTRNLOG was unable to translate it. 


v03-013 MSHO029 Michael S. Harvey 99-Apr-1984 
Eliminate security holes in temporary nai (box creation where 
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von000 ae 8:88:38 SYS.SRCISYSMAILBX.MAR; 1 ° dy 
one without appr riate privilege could greage system or 
group wide logical names. This undoes RASO185 below. 
v03-012 LMP0221 L. Mark Pilant, 30-Mar-1984 16:07 
phenge UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 
ORBSW_PROT. 
v03-011 ROW0240 Ralph 0. Weber 11-OCT-1983 


Correct calling sequence to IOCSCVT_DEVNAM in CREATE_LOGNAM to 
supply a R4, name-type, argument. Ose R4=-1 which produces 
the same format device name as the previous R4 contents, a PCB 
address, produced. Also increase MBXNAMSIZ to accomodate 
possible cluster format device names. 


V03-010 RASO185 Ron Schaefer 5-Sep-1983 
For ry get | reasons, mailbox creation implies 
logical name table privileges: TMPMBX => GRPNAM 
and PRMMBX => SYS for creating the hepteat names. 

c 


Make changes required to use new UCB creation he 5 in 
UCBCREDEL. Modify CHECK_QUOTA to use IOC$_CHKMBXQUOTA. 
Modify CREATE_SHMUCB and CREATE_LOCALUCB to use appropriate 


UCB creation routines. Fix CREATE_SHMUCB to use elevated IPL 
one page locking technique. Modi x COMP_CHARGES to use 
IOCSDE sts for CREATE_SHMUCB 


3 ~DDOD9D90000000000 00000000900 00.0900 09 09 0909 ININJINISISNINNNIOAAAOOAAAOOUU 
PWN ODODNAANEWN SO ODNAULWN MOOD NAUEWWN OO OONOULWN OOO NAUEWN—OO0 


0000 
$000 
$000 So we do a S$SETPRV as necessary to set/clear xNAM. 
0900 Add page-locking code to CREATE_LOGNAM subroutine. 
000 v03-009 RASO175 Ron Schaefer 1-Aug-1983 
0000 urn the ''|"' in the mailbox name into the proper 
44 LNMSM_TERMINAL attribute. 
0000 V03-008 DMwW4058 DMWalp 22-Jun-1983 
8008 Change $xxLNM value parameters to be by reference 
0000 v03-007 DMWw4052 DMWalp 20-Jun-1983 
0000 Added LNM$_LNMB_ADDR in piece of “XFFFF 
Ba08 Replaced HALT with BUGCHESK 
44 Replaced ENQ call with mutex 
8308 V03-006 DMW4031 MWalp ) 26-May-1983 
44 Ist pass at intergating new logical name structures. 
0000 v03-005 ROW0180 Ralph 0. Weber 13-APR-1983 
0000 Test for possibly zero UCB pointer in DDB in routine 
0000 GET_SHMTEMPLATE. 
000 V03-004 ROW0168 Ralph 0. Weber 3-MAR-1983 
4 Change resource locking routine calls to G* references. 
$? v03-003 SRB0067 Steve Beckhardt 21-Feb-1983 
rs Fixed branch displacement to eliminate truncation error. 
00 V03-002 DmMwW4011 buele 19-Nov-1982 
Bp Recode Logical Name Block to UCB ( or MTL ) pointer 
bo v03-001 ROW0127 Ralph 0. Weber 19=SEP-198 
: 
00 
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; LOCAL SYMBOLS 


OM VMN TNDOR-. DAO CUNT NOR. ODO MIM TWN OR. DAO CUM TIN OR. OHO CIMT OR. CO 
ROIS OIE PPP SS SF SF FF TFT TTT INAWNUAUAALAUNOOOOOOOO0O 
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00000011 


ARGUMENT LIST OFFSET DEFINITIONS FOR CREATE MAILBOX 


ION TYPE INDICATOR 
ORE ASSIGNED CHANNEL 


MFLG,- 
ACMODE ,- 
LOGNAM,- 


SOF FSET ima 
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00 170; 
0 174 ; ARGUMENT LIST OFFSET DEFINITIONS FOR DELETE MAILBOX 
158 SOFFSET 4,POSITIVE,<- 

0 124 DLCHAN, = ;CHANNELT NUMBER OF SPECIFIED MAILBOX 

4 DLCHAN: 

0 176 : 

9 44 ; STACK LOCAL STORAGE SYMBOLS 
0000 179 SOFFSET 0,NEGATIVE,<- 
0 09 180 CKID,- ;LOCK IDENT 

00 181 LOCKSTATUS,- :LOCK BLOCK STATUS 
0000 18¢ HANADDR, = ;ADDRESS TO STORE CHANNEL NUMBER 
0000 18 CCBADDR,- :CCB ADDRESS FOR THAT CHANNEL 
0000 184 CHANNUM, = ZASSIGNED CHANNEL NUMBER 
0000 185 SHBADDR,- ;SHARED MEMORY CONTROL BLOCK ADDR 
0000 186 UCB_ADDRESS,- ;UCB ADDRESS, ACCESSED VIA AN ITEMLIST 
0000 187 CRECNM_END_LIST,- sEND OF ITEM LIST 
0000 188 16_RET-LEN;- :ITEM 6 RETURN LENGTH ADDRESS {NORMAL 
0000 189 16~BUF ~ADDR, = ZITEM 6 BUFFER ADDRESS TRANSLATION 
0000 190 16-CODE_LEN,- ;ITEM 6 ITEM CODE & BUFFER LEN {STRING 
0000 191 15-RET_CEN,= ITEM 5 RETURN LENGTH ADDRESS {TRANSLATION 
0000 198 15"BUF ~ADDR, = [ITEM 5 BUFFER ADDRESS {TERMINAL 
0000 19 15-CODE_LEN,- sITEM 5 ITEM CODE & BUFFER LEN {ATTRIBUTE 
0000 194 14"RET_CEN,- ZITEM 4 RETURN LENGTH ADDRESS {TRANSLATION 
0000 195 14~BUF ~ADDR, = [ITEM 4 BUFFER ADDRESS INDEX 
0000 196 14"-CODE_LEN,- sITEM 4 ITEM CODE & BUFFER LEN { # 
0000 197 13"RET_CEN,= ITEM 3 RETURN LENGTH ADDRESS ({BACKPTR 
0000 198 137BUF ADDR, = SITEM 3 BUFFER ADDRESS TO UCB 
0000 199 13-CODE_LEN,- ;ITEM 3 ITEM CODE & BUFFER LEN 
0000 200 1g-RET_CEN . :ITEM 2 RETURN LENGTH ADDRESS {BACKPTR 
0000 201 12-BUF ~ADDR, = SITEM 2 BUFFER ADDRESS {TO UCB 
0000 08 12-CODE_LEN,- sITEM 2 ITEM CODE & BUFFER LEN {INDEX 
0000 20 11-RET_CEN,- SITEM 1 RETURN LENGTH ADDRESS {UCB TO 
0000 204 11"BUF “ADDR, - :ITEM 1 BUFFER ADDRESS {LNMB 
0000 205 11" CODE_LEN,- ITEM 1 ITEM CODE & BUFFER LEN {PTR 
0000 06 KRP,- ADDRESS OF ALLOCATED KRP 
0000 207 LOCALSIZ,- ; SIZE OF LOCAL STORAGE 
0000 08 > 
FFFC LOCKID: 
FFFS LOCKSTATUS: 
FFF4 CHANADDR: 
FFFO CCBADDR: 
FFEC CHANNUM : 
FFES SHBADDR: 
FFE4 UCB_ADDRESS 
FFEO CRECNM_END_LIST 
FFDC 16_RET-LEN 
FFDS 16" BUF ADDR 
FFD4 16-CODE LE 
FFDO 15"RET_CEN: 
FECE 15“ BUF ~ADDR 
FFC 15-CODE_LEN 
FFC4 14"RET_CEN: 
FFCO 14~BUF ~ADDR 
FFBC 14-CODE_LEN 
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MS TEMPORARY _MAILBOX'" 


“"LNMSPERMANENT_MAILBOX"’ 


LNMSM_TERMINAL 


; Pointers to mailbox table names descriptors 
-ASCID 


; TERMINAL LOGICAL NAME ATTRIBUTE 
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yonn00b EXESCREMBX = CREATE MAILBOX g- sen 18 4 0¢:88'38 toys SRCISYSMAILBX MARS 1 . (3) | vg 
r+ rf Hl -SBTTL EXESCREMBX = CREATE MAILBOX 
4A i : EXESCREMBX = CREATE MAILBOX 
GA t8 : THIS SERVICE PROVIDES THE CAPABILITY TO CREATE A VIRTUAL MAILBOX DEVICE 
bea 31 3; AND ASSIGN AN 1/0 CHANNEL TO IT. 
04A : > INPUTS: 
O4A 55 3: 
O4A 54; PRMFLG(AP) = MAILBOX CREATION TYPE INDICATOR. 
04A 35 3 LOW BIT CLEAR INDICATES TEMPORARY MAILBOX. 
Beea 2$ ; LOW BIT SET INDICATES PERMANENT MAILBOX. 
4A 3 CRCHAN(CAP) = ADDRESS TO STORE ASSIGNED CHANNEL NUMBER. 
004A 58 ; MAXMSG(AP) = MAXIMUM MAILBOX MESSAGE SIZE. 
004A 59; BUFQUO(AP) = MAXIMUM BYTES FOR MESSAGE BUFFERING. 
Bota 60 ; PROMSK(AP) = PROTECTION MASK FOR CREATED MAILBOX. 
04A 61; ACMODE(AP) = ACCESS MODE CHANNEL IS TO BE ASSIGNED TO. 
Bpen $6 3 LOGNAM(AP) = ADDRESS OF LOGICAL NAME STRING DESCRIPTOR. 
004A 264: R4 = CURRENT PROCESS PCB ADDRESS. 
004A 65 ; 
004A 66 ; OUTPUTS: 
004A 67 ;: 
Baan $08 : RO LOW BIT CLEAR INDICATES FAILURE TO CREATE MAILBOX. 
004A 70 : RO = SS$_ACCVIO = LOGICAL NAME STRING OR LOGICAL NAME STRING 
004A 71 3 BESCRIPTOR CANNOT BE READ BY CALLING ACCESS MODE, 
OO4A ie 5 OR CHANNEL NUMBER CANNOT BE WRITTEN BY CALLING 
Been a 3 ACCESS "ODE. 
006A 275: RO = SS$_BADPARAM = BUFQUO exceeds 65535 minus the size of a 
Bpen 6 3 mailbox UCB (approximately 65355). 
004A 28 : RO = SS$_EXBYTLM - Process has insufficient buffer 1/0 byte 
004A 79 ; count quota to allocate mailbox UCB or satisfy buffer 
Baan Hs : requirements. 
004A 3 : RO = SS$_INSFMEM - SUFFICIENT SYSTEM DYNAMIC MEMORY DOES NOT 
BRee o 3 EXIST TO ALLOCATE MAILBOX UCB. 
004A 5: RO = $S$_IVLOGNAM = GREATER THAN MAXIMUM LENGTH LOGICAL 
Boe § 3 NAME STRING SPECIFIED. 
GOGA 8 : RO = SS$_NOiOCHAN = NO 1/0 CHANNEL IS AVAILABLE FOR ASSIGNMENT. 
O4A 90 : RO = SS$_NOPRIV = PROCESS DOES NOT HAVE PRIVILEGE TO CREATE 
en 4 3 SPECIFIED TYPE OF MAILBOX. 
O4A $8 : RO = SS$_INTERLOCK = UNABLE TO OBTAIN MAILBOX TABLE INTERLOCK. 
2 32 : RO = SS$_EXPORTQUOTA = PORT'S MAILBOX CREATION QUOTA EXCEEDED. 
O4A 39 : RO = SS$_NOSHMBLOCK - NO SHARED MEMORY MAILBOX TABLE BLOCKS 
Beh 2 3 RRE AVAILABLE. 
4A 89 : RO = SS$ OP 7HCORPL - Duplicate unit number encountered while 
O4A : Tinking shared memory mailbox UCB. (This should never 
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yoen00b EXESCREMBX = CREATE MAILBOX g- Hits 86:83:58 Yeys. SRCJSYSMAILBX.MAR; 1 . () vd 
re Oe i ; happen. Submit an SPR if it does.) 
4A 5 ; RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
4A $ ; ; RO = SS$_NORMAL = NORMAL COMPLETION., IF LOGICAL NAME SPECIFIED, 
O4A 3 NEW ENTRY DID NOT SUPERSEDE PREVIOUS ENTRY. 
4A  : ; RO = SS$_SUPERSEDE - NORMAL COMPLETION, NEW ENTRY SUPERSEDED 
O6A 10 : PREVIOUS ENTRY IN SPECIFIED LOGIC 
04a 312° 
O4A i BAD_LOGNAM: 
50 0154 a 3c 004A «314 MOVZWL #sss $  LVLOGNAM, ,RO s INVALID LOGICAL 
57 06 OO4F 15 EXIT:  MOVL SRETRIEVE ADDRESS OF ALLOCATED KRP 
* oe 13 0053 316 BEQL SIMMEDIATELY R F NO KRP ALLOCATED 
56 00000000'GF 9 0055 317 MOVAB GrETLs6L KRPFL,R6 TELSE RETRIEVE ADDRESS OF KRP LISTHEAD 
04 B6 67 OF 05. 18 INSQUE a4 (R6) SAND DEALLOCATE KRP TO LOOKASIDE LIST 
04 006 19 10S: ET SEXIT SYSTEM SERVICE 
OFFC 0061 1 -ENTRY EXESCREMBX, “M<R2,R3,R4,R5.RG,R7,RB/RI-R10,R11> 
SE 90 AE 9E 0063 ; OVAB LOCALSIZ(SP),SP LLOCATE LOCAL STORAGE 
94 AD ps 006 CLRL —«KRPCFP) : 5 KRP ALLOCATED 
50 OC 3C 006A 4 MOVZWL $*#SS$_ACCVIO,RO tASSUME ACCESS VIOLATION 
56° 08 AC DO 006D 5 MOVL  CRCHANTAP) ,R6 [GET ADDRESS TO STORE CHANNEL NUMBER 
0071 : IFNOWRT #2, (R6) EXIT AN CHANNEL NUMBER BE WRITTEN? 
F4 AD 56 DO 0077 MOVL R6,CHANADDR(FP) [SAVE ADDRESS TO STORE CHANNEL NUMBER 
66 B4 0078 go CLRW = (RO) [CLEAR CHANNEL NUMBER IN CASE OF ERROR 
B85D 0; 3; GET AND TRANSLATE SPECIFIED LOGICAL NAME (IF ANY) 
5B IC AC 09 007D : ; MOVL LOGNAM(AP) wR11 iGET ADDRESS OF LOGICAL NAME STRING DESCRIPT 
56 CO 0081 BE SIF EQL NO LOGICAL NAME SPECIFIED 
083 4 LF NORD #8, (R11), EXIT CAN LOG! L STRING DESCRIPTOR BE READ? 
7E 68 7D 089 5 (R11) ,-(§P) tMOVE DESCRIPTOR TO KERNEL STACK 
59 SE dO 008C 6 HOVE SP Rg” [GET ADDRESS OF DESCRIPTOR 
5A 04 A9 DO O08F 337 MOVL  4&(R9),R10 [GET ADDRESS OF LOGICAL NAME STRING 
5B 69 3¢ 0095 38 MOVZWL (R9),R11 [GET LENGTH OF STRING IN BYTES 
B21 096 39 BEQL BAD_LOGNAM TIF EQL STRING HAS ZERO LENGTH 
94 9 ASSUME LNMSC ey agier by LE 512 
OOFF 8F SB B81 0098 34 CMPW  R11,#CNMSC_NAMLENGTH | ;LOGICAL NAME TOO LARGE? 
AB 1A «(0090 4g BGTRU BAD_LOGNAM™ :IF GTRU YES 
OO9F 43 IFNORD R117(R10) ,EXiT [CAN ENTIRE LOGICAL NAME STRING BE READ? 
SE FO AE 9E OAS 45 MOVAB <-SHDSC_NAMLENGTH(SP),SP ;CREATE MEMORY NAME BUFFER 
SE DD O0A9 46 PUSHL SP ;CREATE BUFFER DESCRIPTOR 
F DD OOAB 34 PUSHL #SHDSC_NAMLENGTH=1 Re 
SA SE DO OOAD 48 MOVL  SP,R1 [GET ADDRESS OF DESCRIPTOR 
56 00900000 GF 9E 289 50 MOVAB G*CTLSGL_KRPFL,R6 :RETRIEVE ADDRESS OF KRP QUEUE LISTHEAD 
57 04 86 OF 008 51 REMQUE @4(R6),R7 SRETRIEVE KRP FROM LOOKASIDE LIST 
04 1C 00BB 3g BVC CONTINUE tf Pcor ON 
BD 33 BUG_CHECK KRPEMPTY,FATAL :OTHERWISE BUGCHECK 
94 AD 57 00 3 33 10$:  MOVL  R7,KRPCFP) :SAVE ADDRESS OF KRP IN LOCAL STORAGE 
7 OD C3 6 PUSHL ; CREATE BUFFER DESCRIPTOR 
OOOOOOFF BF DD O0C § PUSHL #LNMSC_NAMLENGTH 
58 45E DO 00CD) «6358 MOVL  SP,R11 IGET ADDRESS OF DESCRIPTOR 
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50 O17C 8F 3¢ OOEA A MOVZ2WL 
59 FFFFFFFE 8F OD OEF 74 ITL 
a... i bce 75 NEQ 
50 24 3C OOF 76 MOVZWL 
OOFB 77 IFPRIV 
06 59 «£8 tty 4 res ey 
010A 80 TO_EXIT ~LOWER. IPL 
OO9F 31 O10A 81 “BRW 
010D 6 . 
010D 8 
100 388 : 
O10 386 bISPATCH: 
Q0000000'GF 16 819 8 JSB 
58 rf 113 88 TSTL 
ec) 8613=«=011 89 BEQL 
6A B5 Bite $0) TSTW 
46 12 0119 91 BNEQ 
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; TRANSLATE THE LOGICAL NAME 
7 IF LBC FAILURE 
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ICES TO CREATE 

CREATE MAILBOX 

411; 
‘le ; CREATE UNNAMED LOCAL MEMORY MAILBOX 
414 NONAME : 

415 MOVAB MBSUCBO,RS 

416 BSBW CHECK QUOTA 

41 BLBC  RO,EXTT_UNLOCKIODB 
418 BSBW © CREATE_COCALUCB 
419 BLBC = RO exit UNLOCKIODB 
420 CLRL = UCBSL_LOGADR(R6) 
421 ASSIGN_IT: 

4 3 BSBW ASSIGN 

4 MOVZWL #SS$_NORMAL,RO 

426 BRB EXIT-UNLOCK{0DB8 
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SYSMAILBX = SYSTEM SERVICES TO CREATE AND pete E M 16-SEP-1984 02:23:42 VAX/VMS Macro V04-00 Page 1 S' 
yOer000 EXESCREMBX = CREATE MAILBOX ioe 8¢:83:58 YOYS SRCISYSMATLBX MAR: 1 3, v 
197 450 EXIT_CLEAR_FLAGS: 
08 A? (94 0197 & CLRB_  MBX$B_FLAGS(R7) ;CATASTROPHIC ERROR = CLEAR ALL FLAGS 
19A 452 EXIT_UNLOCKIODB: SEXIT, UNLOCKING 1/0 DATABASE 
50 DD 019A 4 PUSHL RO [SAVE STATUS 
54  00000000'GF D0 19¢ 454 MOVL  G*CTLSGL_PCB,R4 [LOAD PCB INTO R4 FOR CALL 
000000 ‘gf 1A3——455 JSB 6*SCHSIOONLOCK SUNLOCK 10 DATA BASE 
0 8EDO O1A 436 POPL RO SRESTORE STATUS 
1AC 457 EXIT_LOWER_IPL: SEXIT, UNLOCKING WITH STATUS IN RO 
1AC 438 SETIPL #0 SRESTORE IPL IF NEEDED 
3%4«11 lat 439 BRB RETURN :GO EXIT SYSTEM SERVICE 
1B1 461 EXIT_DEASSIGN: 
50 oD 0181 4 é PUSHL RO :SAVE SYSTEM SERVICE STATUS 
54 00000000'GF DO 0183 4 G*CTLS$GL_PCB,R4 [LOAD PCB INTO R4 FOR CALL 
00000000'GF 16 O1BA 464 JSB G*SCHSIOONLOCK SUNLOCK 10 DATA 
109 465 SETIPL #0 TRESTORE IPL IF NEEDED 
06 59 £9 GIC 466 BLBC _R9, 108 [TEMP MAILBOX DO NOT DELETE 
106 46 SDELMBX_S = [MARK PERMANENT MAILBOX FOR DELETE 
106 468 CHAN = CHANNUM(FP) : 
2350 €9 0101 469 BLBC RO,BUGCHECK [SHOULD ALWAYS BE ABLE TO DELETE 
1D4 470 16S:  SDASSGN_S - [DELETE ASSIGNED CHANNEL, MAILBOX 
1044711 CHAN = CHANNUM(FP) : UC 
15 50 €9 O1DF 47 BLBC R0O,BUGCHECK [SHOULD ALWAYS BE ABLE TO DEASSIGN 
50 8€D0 Oleg 403 POPL RO TRESTORE STATUS 
57 94 AD DO O1E5 475 RETURN: MOVL KRP(FP),R7 ZRETRIEVE ADDRESS OF ALLOCATED KRP 
OB 13 O189 476 BEQL 10$ S IMMEDIATELY RETURN IF NO KRP ALLOCATED 
56 00000000'GF 9E O1FB 477 MOVAB G*CTLS$GL_KRPFL,R6 TELSE RETRIEVE ADDRESS OF KRP LISTHEAD 
04 B6 67 OF O1F2 478 INSQUE (R7),a SAND DEALLOCATE KRP TO LOOKASIDE LIST 
04 iF 479 10$: RET TEXIT SYSTEM SERVICE 
O1F7 481 BUGCHECK: 
O1F7? 482 BUG_CHECK SSRVEXCEPT, FATAL 


7 le 
SYSMAILBX = SYSTEM SERVICES TO CREATE AND DELETE M 16-SEP-1984 02:23:42 VAX/VMS Macro V04-00 Page 14 S) 
v04=0 CHECK_QUOTA = CHECK BUFFER 1/0 Byte COUN green 1882 86:83:38 YOYS SRCISYSMALLBX MAR: 1 . (8) ve 
1FB 4 5 ss ~SBTTL CHECK_QUOTA = CHECK BUFFER 1/0 BYTE COUNT QUOTA 
1FB OG 5 : THIS ROUTINE I$ CALLED TO CHECK IF PROCESS HAS ENOUGH BUFFER 1/0 
FB 4 § ; BYTE COUNT QUOTA FOR TEMPORARY MAILBOX UCB AND MESSAGES. 
1FB 490 : INPUTS: 
1FB 43¢ : BUFQUO(AP) = SPECIFIED MAILBOX BUFFER QUOTA FOR MESSAGES. 
1FB 493: R4 = CURRENT PROCESS PCB ADDR 
1FB 494: R9 = 0 IF TEMPORARY MAILBOX. 
1FB 499 ; = 1 IF PERMANENT MAILBOX. 
168 63% t OUTPUTS: 
1FB re : RO = SUCCESS OR FAILURE. 
FB ot ; R& = BYTE COUNT QUOTA FOR MESSAGES. 
1FB ; CHECK_QUOTA: ;CHECK BUFFER QUOTA 
50 01 3 17B 50 MOVZWL $*#SS$_NORMAL,RO sASSUME SUCCESS 
58° 10 AC 3C IEE 04 MOVZWL BUFQUOTAP),R 3GET SPECIFIED BUFFER QUOTA 
07 12 0202 505 BNEQ TIF NEQ BUFER QUOTA SPECIFIED 
58 00000000 "EF 3¢ 204 306 MOVZWL i0C$GW_MBXBFQUO,R8 ;GET DEFAULT BUFFER QUOTA 
03 59 8 0208 507 10$: BLBS 3; Branch if permanent mailbox. 
FDEF* 5 Bsys 508 BSBW 1OCSCHKMBXQUOTA ; Check for enough BYTCNT quota. 
0S 0211 509 30$: RSB ; Return to caller. 
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SYSMAILBX = SYSTEM SERVICES TO CREATE AND DELE E M 16-SEP-1984 02:23:4 AX/VMS Macro v04-00 Page 1 
yOnn000 CREATE_LOCALUCB = CREATE LOCAL MEMORY MA mii ety 86:88:38 toys. SRCISYSMAILBX.MAR; 1 . ( 
} 18 . ~SBTTL CREATE_LOCALUCB = CREATE LOCAL MEMORY MAILBOX UCB 
| 1 ; THIS ROUTINE IS CALLED TO CREATE A UCB FOR A LOCAL MEMORY MAILBOX. 
! 18 : INPUTS: 
1 13 $ R4 = CURRENT PROCESS PCB ADDRESS 
1 19 ; Re = ADDRESS OF TEMPLATE MAILBOX UCB. 
! 9 3 R8 = BYTE COUNT QUOTA FOR MESSAGES. 
! § ; OUTPUTS: 
1 4; RO = SUCCESS OR FAILURE 
} - 2 R6 = ADDRESS OF CREATED UCB. 
1 “ -ENABL LSB 
1 8 CREATE_LOCALUCB: ;CREATE LOCAL MEMORY MAILBOX UCB 
fogR" 30 1 7 BSBW IOCSCLONE_UCB ;CLONE MAILBOX UCB 
4650 €9 1 0 BLBC RO,20$ TIF LBC ee us FAILURE 
56 2§ dO 18 1 MOVL neone :SAVE A she OF ALLOCATED ucB 
18 AB 5 B0 . oo ¢ MOVW R ats BUF QUO (R6) SET BUFFER QUOTA 
20 a6 «04 CORTE C5 CLRL UCBS$L_PIB(R6) CLEAR 
50 1€ A6 00 2 534 MOVL UCBSL gCRB (RO) . ;GET ORB ADDRESS 
0B AO 01 88 8S S 329 BISB2 PORBSAP ROT_1 LAGS (RO) USE SOGW 77 tala WORD 
18 AO 14 AC BO 022A e399 MOVW PRORSKTAP) ones PROT (RO) 3SET PROTECTION MASK 
0 O00BC C4 00 08 F 53 MOVL  PCBSL_UIC(R4), ORBSL_OWNER(RO) ;Establish owner UIC. 
42 A6 OC AC BO 0234 538 MOVW RANRSG (AP) ueéso. BEVBUFS SIZ(R6) ;SET MAXIMUM SAGE SIZE 
08 12 8S 9 539 BNEQ COMP_CHA GES sIF NEQ MESSAGE SIZE SPECIFIED 
42 A6 00000000'EF B0 8 ‘3 341 MOVW 10C$Gw_ MBXMXMSG ,UCBSW_DEVBUFSIZ(R6) ;SET DEFAULT MAXIMUM SIZE 
$e rt ; COMPUTE BYTE COUNT CHARGES 
0243 543; 
0 43 544 COMP_CHARGES: 
4A6 D4 024 $2 CLRL UCBSL Mg 8 fade & s INIT USER VISABLE CURRENT MESSAGE COUNT 
56 A608 ae” 58 Al 0246 46 ADDW3 R8, UTB$W SIZE(R6), -  ;Compute byte count charge for 
asec 547 ucésy CHARS E(R6) sthis UCB. 
05 59 E€9 O24C 548 BLBC RS 1 "s :Branch if temporary mailbox. 
07 68 A600) «CES «(024F «= 549 BBCS  #ucBs iMark mai lbox permanent and 
b524 550 attr VBE VTE CRS) . tskip tem orery mailbox stuff. 
68 A6 02 = AB 8 23 22) 10$: BISW aces PERK :Mark mailbox temporary tasletable). 
FDAS' 30 0 25 226 BSBW TOCSDEBIT ucB Charge byte count quota for UCB, etc. 
50 01 C 0258 554 19$: MOVZWL #SS$ ONORREL « RO :Set operation completed successfully. 
05 Os ze 555 208: RSB sReturn to caller. 
SF 0 «556 -DSABL LSB 
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NEL TO MAILBOX “SEP=1 SYS.SR 58 SYSM AILBX.MAR; 1 
«~SBTTL ASSIGN = ASSIGN CHANNEL TO MAILBOX 
THIS ROUTINE IS CALLED TO ASSIGN A CHANNEL TO THE MAILBOX 


INPUTS: 
CHANADOR(FP) = ADDRESS TO STORE CHANNEL NUMBER. 
CHANNUM(FP) = CHANNEL NUMBER. 
gage ADDRESS OF CCB FOR CHANNEL NUMBER. 
R6 = ADDRESS OF UCB 

OUTPUTS: 


CHANNEL NUMBER STORED AT CALLER'S ADDRESS. 
1/0 DATABASE UNLOCKED AND IPL SET TO 0 


SSIGN: e sASSIGN CHANNEL 


SGOCGCOCOCCOCSOOOCOQOOCOOCOOOOOOCOOOCOO 
POPIPPIPYNIPINIPYIPIPIPIPPINININIMNAINININININIPININININYD 
SOD SIDS DEDEDE ITI 
fF PUNO OWS TF no 
NOUS $9 OONOUES WN" OOONOULSWH"0O0 ZO 


ASSUME CHANNUM+4 EQ CCBADD 
ASSUME CCBADDR+4 EQ CHANADDR 
5B ODD PUSHL R11 :SAVE ADDRESS OF LOGNAME DESCRIPTOR 
SA FO AD 7D OV CCBADDR(FP) R10 SRETRIEVE CCB AND CHANNEL ADDRESSES 
68 EC AD BO MOVW  CHANNUM(FP). (R11) ‘STORE CHANNEL NUMBER 
6A 56 dO OVL Ro, CCBSL UCB(R10) [STORE UCB ADDRESS IN CCB 
50 18 AC 02 00 EF EXTZV #0,#2,ACMODE (AP) ,RO [GET SPECIFIED ACCESS MODE 
FD8B" 30 SBW EXE SMAXACHODE TMAXIMIZE ACCESS MODE 
09 AA 50. 01s ADDB3 case. AMOD(R10) STORE ASSIGN ACCESS MODE 
54 490000000" GF DO MOVL G-ETLSGL JR ‘LOAD PCB INTO R4 FOR CAL 
5B 8EDO POPL SRESTORE ADDRESS OF LOGNAME DESCRIPTOR 
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SYSMAILBX = SYSTEM SERVICES TO CREATE AND DELETE M 16-SEP-1984 02:23:4 AX/VMS Macro V04-00 Page 17 
vOe-000 SEARCH_MBXUCB = SEARCH FOR SPECIFIED MAI o73Ep= 1382 8:83:48 ESYSSRCISYSMATLBX MAR; 1 (11) 


~SBTTL SEARCH_MBXUCB = SEARCH FOR SPECIFIED MAILBOX UCB 


0 
; i : THIS ROUTINE IS CALLED TO SEARCH FOR THE SPECIFIED MAILBOX UCB. 
93 ; IF IT IS FOUND, THE MAILBOX ALREADY EXISTS AND THE UCB ADDRESS IS 
; 3 ; RETURNED. IF {1 1S NOT FOUND, THE MAILBOX MUST BE CREATED. 
3 36 > INPUTS: 
5 6598 : R9 = 0 IF MAILBOX IS TEMPORARY 
5 6599 : 1 IF MAILBOX I$ PERMANENT 
0285 sit ; R11 = ADDRESS OF MAILBOX NAME DESCRIPTOR 
p eS 60¢ ; OUTPUTS: 
0285 604: IF MAILBOX UCB FOUND. 
0 85 609 ; R6 = ADDRESS OF MAILBOX UCB. 
0285 b07 : IF MAILBOX UCB NOT FOUND. 
0285 608: R6 = 0 
ae 
0285 611 SEARCH_MBXUCB: ;SEARCH FOR MAILBOX UCB 
bg 82 ei$ 3; SET UP THE TRANSLATION INDEX TO BE THE BACK POINTER 
98 AD 00010004 8F DO 0285 615 MOVL §#LNMS_INDEX@16!4,11_CODE_LEN(FP) 
9C AD FD6F CF DE O 8p 616 MOVAL BACKPTR_INDEX,11_BUF_ADDR(FP) 
AO AD 04 0 33 617 CLRL 11_RET_CENCFPS 
0 96 619 ; GET THE TRANSLATION STRING AND SIZE ( OR HOPEFULLY THE UCB MAILBOX ) 
AG AD 00020004 8F 00 0296 est MOVL #LNMS_STRING@16!4,12 CODE_LEN(FP) 
AB AD E4 AD DE O H 6 : MOVAL UCB_ADDRESS(FP).12 BOF _ADDR(FP) 
AC AD B4 AD ODE 0 A 6 3 MOVAL UCBTADDR_SIZE(FP) ,Y2_RET_LEN(FP) 
BO AD D4 O28 625 CLRL —- TRNLNM_END_LIST(FP) :END ITEM LIST 
50 18 AC 02 00 ef 02AB 86 EXTZV #0,#2,ACMODE (AP) ,RO ZEXTRACT SPECIFIED MODE 
FD4C' 30 0281 628 BSBW  EXESMAXACMODE [MAXIMIZE ACCESS MODE 
50 ~DD 0284 629 PUSHL RO ‘SAVE IT FOR REFERENCE 
50 5E DO 0286 630 MOVL SP, RO [SAVE POINTER TO ACCESS MODE S 
51 FD4A CF49 D0 0 BY 631 MOVL  MAILBOX_TABLESCR9],R1 CALCULATE TABLE st 
0 BF o38 STRNLNM_S - :SEE IF THE MAILBOX EXIST ss 
BF 634 ABNAM = (R1),- [USE THE CORRECT TABLE Ss 
D2BF 635 LOGNAM = (R115,- [POINT TO DESCRIPTOR s{ 
BF 636 ACMODE = (RO),- :PREVIOUS ACCESS MODES ss 
: 0 Bf eh ITMLST = 11_CODE_LEN(FP) T ITEM LIST 3 
SE 04 C9 D1 «639 ADDL2 #4,SP :POP ACCESS MODE ss 
1850 € D4 640 BLBC RO.20$ SIF ERROR NO TRANSLATION 5S 
B4 AD 04 Bi 02D7 641 CMPW sad ,UCB_ADDR_SIZE(FP) TEST IF IT IS THE CORRECT SIZE SS 
12 if DB 64g BNEQ 0$ [CAN NOT BE POINTER, SHOULD NOT HAPPEN $) 
56 E4 AD OD DD 64 MOVL UCB_ADDRESS(FP) .R6 [LOAD THE 2?UCB ADDRESS INTO R6 5) 
56 OBC A DE E1 644 MOVAL =UCBSL_LOGADR(R6),R6 _:POINT TO THE BEGINNING OF ?UCB $) 
OA AG 1 E5645 CMPB - #DYNSC"UCB,UCB$B_fYPE(R65;CHECK TO SEE WHERE THE POINTER POINTS 5) 
12 0269 646 BNEQ 208 sCHECK FAILED ( MUST BE MTL ) TC 


13 
SySMAILBX = SYSTEM SERVICES TO CREATE AND DeLee W 16-SEP- 
v0d- SEARCH_MBXUCB - SEARCH P 4 -SEP- 
0 EARCH_MBXUCB = SEARCH FOR SPECIFIED MAI 5=SEP 
5C AG Bs EB 647 INCW = UCBSW_REFC(R6) 
EE 648 RSB 
56 D4 OEF 649 208 CLRL = R6 
5 O2F1 #50 RSB 


198e 08:85:38 


3; INCREME 
;RETURN 
;NO UCB 
;RETURN 
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SYSMAILBX - SYSTEM SERVICES TO CREATE AND DELETE M 16-SEP-1984 02:23:42 VAX/VMS Macro V04-00 P 19 | 
vOe~O00 CREATE_LOGNAM = CREATE LOGICAL NAME moet 7 86:83:58 SYS.SRCJSYSMAILBX.MAR; 1 seat: 
F 3 .SBTTL CREATE_LOGNAM = CREATE LOGICAL NAME | 
Fo 655 : THIS ROUTINE IS CALLED TO FILL<IN THE ALLOCATED LOGICAL NAME BLOCK 
6 i 636 ; AND INSERT IT INTO THE APPROPRIATE LOGICAL NAME TABLE. 
0 F 638 + INPUTS: 
F 659 ; 
O2F2 660: R6 = ADDRESS OF MAILBOX UCB. 
O2F2 661: R9 = 0 IF TMPMBX, 1 IF PRMMBX. 
0 F 66¢ ; R11 = ADDRESS OF LOGICAL NAME DESCRIPTOR. 
0 F2 664 : OUTPUTS: 
F 665 ; 
O2F2 666: RO = INSERTION STATUS. 
O2F 667 ; 
O2F 668 ; R1, R2, R4&, and R5 are corrupted. 
O2F 669 : 
02F2 670 
OeF 671 tREATE _LOGNAM: sCREATE LOGICAL NAME 
oF ers ; STORE INFORMATION SO IT IS ACCESSABLE FROM ITEM LIST 
E4 AD 74 Ab DE sf 675 MOVAL UCBSL_LOGADR(R6) ,UCB -ADDRESS (FP) 
O2F7 676 MOVE ADDR OF UCB TO LOCAL STORAGE 
FO AD D4 OOF? 677 CLRL _ ZERO_INDEX(FP) t MOVE ZERO INDEX TO LOCAL STORAGE 
SE EF AE DE O2FA 678 MOVAL cHBXRAMS 2(SP),SP SSTORAGE FOR EQUIVALENCE NAME 
D8 AD «6E ODE oF 679 MOVAL (SP),16 SauF “ADDR (FP) :SAVE THE POINTER TO THE BUFFER 
55 56 DO 0302 680 MOVL 3 R5 :MOVE UCB ADDRESS TO R 
0305 681 DSBINT 100$ SLOCK THIS CODE FOR HIGH TPL ERECUTION. 
51 DB AD DO 030F 68¢ OVL 16 BUF ADDR(EP) R1 SLOCATION OF OUTPUT BUF 
50 11 »bO 0313 68 OVL #MBXNARS! :SIZE OF OUTPUT BUFFER 
54 CO 0316 684 MNEGL [SET FOR DISPLAY FORMAT DEVICE NAME 
FCE4’ 30 0319 685 BSBW I0C$CVT :CONVERT UCB TO DEVICE NAME STRING 
D4 AD «651.—oO9A O31¢ 686 MOVZBL As 16_ LODE. VLENCEP) TSAVE SIZE OF OUTPUT BUFFER 
0320 687 ENBINT SRETURN OLD IPL 
0383 689 ; STUFF THE LOGICAL NAME BLOCK ADDRESS IN THE UCB 
98 AD 00090004 8F DO 03 : 691 MOVL § #LNMS_LNMB_ADDRA16!4,11_CODE_LEN(FP) 
9C AD 74 A6_ DE 3¢ 69¢ MOVAL UCBSL TrOGABR R(RO), 11_BUF ~ADDRTFP) 
AO AD D4 03 693 CLRL. —s«d11_RET_LEN(F 
03 695 ; SET UP THE BACK POINTER TO THE UCB FROM THE LOGICAL NAME BLOCK 
AG AD 00010004 8F D0 69 MOVL = #LNMS INDEX 16:4, 12_CODE_LEN(FP) 
AB A Feel CF DE B 69 MOVAL BACKPTR 1 NDEX, 12. BUF_ADDR(FP) 
D4 0341 69 CLRL. 12_RET Ps 
BO AD 00020004 ar D0 0344 700 MOVL = #LAIM STRINGATO!4 13_CODE_LEN(FP) 
B4 AD £4 AD DE 034C £01 MOVAL rie ADDRESS (FP), 1$_BOF ORDDRY (FP) 
D4 31 , : CLRL RET OPENGE 
5 , 4 ; SET UP NORMAL EQUIVALENCE STRING 
BC AD 00010004 8F D0 2 7 6 ROVL —«#LNMS_INDEX@16!4,14_CODE_LEN(FP) 
CO AD FO AD DE 3 , f MOVAL ZERO T INDE DEXCFP) 14_BOF _ADBR(FP) 
C8 AD soosoage 2° BF DO 0364 709 MOVL bcRR THER IBUTES@16!4, 15_CODE_LEN(FP) 
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SYSMAILBX = SYSTEM SERVICES TO CREATE AND DELETE M 16-SEP-1984 02:23:42 VAX/VMS Macro V04-00 Pa SY 
vOe~000 CREATE_LOGNAM = tREATE LOGICAL NAME g7SFE 1382 84:83:38 USYS. SRCISYSMAYLBX.MAR: 1 = (43) Ta 
CC AD FC94 CF DE 1 MOVAL LNM_TERM_ATTR,15_BUF_ADDR(FP) 
b0 AD D 1 CLR 5_RET_LEN(FPS 
D4 AD 87 1 DECW 16° CODE _LEN(FP) ;REMOVE LEADING ''_"' FROM COUNT 
D6 AD 0 80 7 4 MOVW #LAMS STRING, 16_CODE_LEN+2(FP) 
D8 AD OD 7C) 714 INCL 16_BUF ADDR CEP) ;REMOVE LEADING ‘'_'’ FROM STRING 
DC AD D4 037F fi CLRL «= JO RETLEN(FP) 
EO AD D4 ; ay CLRL = CRELNM_END_LIST(FP) ;END ITEM LIST 
50 18 AC 02 9 éf 19 EXTZV #0,#2,ACMODE (AP) ,RO sEXTRACT SPECIFIED MODE 
FC72" 30 B 720 BSBW © EXESMAXACMODE :MAXIMIZE ACCESS MODE 
50 «(DD 7 f 1 PUSHL RO 7SAVE IT FOR REFERENCE 
30 3 DE 6 90 7 ‘ MOVAL (SP),RO sPOINTER TO ACCESS MODE 
51 FC70 CF49 OD 6 3 f 4 MOVL § MAILBOX_TABLESCR9],R1 CALCULATE TABLE 
99 7 $ SCRELNM_S - 
99 7 TABNAM = (R1),- 
399 728 LOGNAM = (R115,- 
99 729 ACMODE = (RO),- 
399 f 9 ITMLST = 11_CODE_LEN(FP) 
5E 15 AE DE O38 f é MOVAL MBXNAMSIZ+4(SP),SP ;RETURN STORAGE OF EQUIVALENCE NAME 
05 ate 734 RSB 
0380 735 100$: ;IPL TO LOCK PREVIOUS CODE IN MEMORY 
00000008 0380 736 .LONG IPL$_SYNCH 
0384 737 ASSUME <.-CREATE_LOGNAM> LE 512 ;CAN ONLY LOCK 1 PAGE 


SYSMAILBX = SYSTEM SERVIC 
voe-000 GET_SHMTEMPLATE 
B4 74 
B4 28 
B4 146 
B4 74 
B4 fa 
B4 745 
Be 746 
B4 74 
B4 748 
B4 749 
B4 750 
B4 751 
Bs 3¢ 
BG 75 
0384 754 
0 B4 755 
Bi 756 
56 O0000000'EF DE 0384 75 
0388 758 
0388 = 759 
5666 bo 03BB 760 
45 13 0 BE 761 
55 04 A6 DO 03C 166 
00 04 BA 6A 2D 034 76 
21 A5 OF 03C9 764 
ED 12 O3CC 765 
32.08 AB 600 CéET:sCOO cE 766 
50  O0000000'EF DE 03D3 767 
O3DA 768 
O3DA 769 
50 $0 9 O5DA 77) 
26 13 0300 771 
55 04 AO bd O3DF 77 
F513 «O3E3 «77 
FO 38 AS 14 «€1 O3E5 77% 
EB 68 A5 03 €1 O3EA 775 
31 24 AS DO OSEF £78 
51 38 Al 0 0 F377 
56 «630 Al «=I «OO3F7?)=— 778 
DD 12 O3FB 779 
EB AD 56 DO O3FD 780 
50 01 00 0401 781 
05 0404 786 
50 O37C BF 3¢ 6 3 Tee 
05 040A 785 


13 
$ TO CREATE AND bELE ETE M 16-SEP-1984 02:23:42 VAX/VMS Macro V04-00 Page 
= GET SHARED MEMORY MAIL "978 SEP=1 138 86:83:58 Heys SRCJSYSMAILBX.MAR; 1 . (7) 
a .SBTTL GET_SHMTEMPLATE = GET SHARED MEMORY MAILBOX TEMPLATE UCB 
: THIS ROUTINE I$ CALLED TO GET THE _ADDRESS OF THE “'TEMPLATE'’ MAILBOX 
; UCB FOR A SPECIFIED SHARED MEMO 
: INPUTS: 
: R10 = ADDRESS OF SHARED MEMORY NAME DESCRIPTOR. 
: OUTPUTS: 
: RO = SUCCESS OR FAILURE. 
; R5 = ADDRESS OF TEMPLATE MAILBOX UCB. 
; SHBADDR(FP) = ADDRESS OF SHB. 
GET_SHMTEMPLATE : :GET ADDRESS OF TEMPLATE UCB 
‘as MOVAL  EXESGL_SHBLIST,R6 'GET ADDRESS OF SHARED MEMORY LISTHEAD 
; ASSUME SHBS$L_LINK EQ 0 
MOVL  SHBSLLINK(R6),R6 :GET ADDRESS OF NEXT SHB 
BEQL 408 [IF EQL NO SUCH MEMCRY 
MOVL.  SHBSL -DATAPAGE (R6), RS 3GET ADDRESS OF DATAPAGE 
CMPCS (R10)-a r NAMES MATCH? 
ee #SHDSC_ OAMLeNe THT. SHDST’ NAME +1 (R9) 
BBC #SHBSV_CONNECT, SHBSB_ FLAGS(RO), 40s :BR IF NOT CONNECTED 
pi MOVAL IOC$GLDEVLIST.RO :GET ADDRESS OF DDB LISTHEAD 
"ASSUME DDBSL_LINK EQ 0 
MOVL  DDBSL-LINK(RO),RO GET ADDRESS OF NEXT DDB 
BEQL 40S SIF EQL N 
MOVL § DDBSL_UCB(RO).R5 GET ADDRESS OF UCB 
BEQL 208 ‘BRANCH IF NO UCB ADDRESS HERE 
BBC #DEVSV _MBX, x -UCBSL DEVCHAR(RS) NSGs “IF LBOX 
BBC #UCBSV~ SHMMB XU UCB$W_DEVSTS(R5) ,208 ; ire CLR NOT SHARED MEM MAILBOX 
MOVL UCBSL _URB 76 Ss 
MOVL  CRBSL~ inrpevees _ADP(R1),R1 ;GET ADAPTER CONTROL BLOCK ADDRESS 
CMPL  ADPSLSHB(R1),R SHA HARED MEMORY BLOCK ADDRESS MATCH? 
BNEQ F NEQ NO WR ONG MEMORY 
MOVL § R6,SHBADDR(FP) :SAVE SHB A 
MOVL  #1.RO 'SET SU CCESS 
ve RSB : 
; MOVZWL #SS$_SHMNOTCNCT,RO ;SET MEMORY NOT CONNECTED 


i 
4) 


SYSMAILBX - SYSTEM SERVICES TO CREA TE AND of LET SEP=19 :23:42 VAX/VMS Macro v04-00 Page 22 
yoee0ob SEARCH_SHMMBX = SEARCH FOR SHARED LE NBRY Bese} 8¢:88 58 Leys SRCISYSMATLBX_MAR; 1 . i 
4 : : .SBTTL SEARCH_SHMMBX - SEARCH FOR SHARED MEMORY MAILBOX 
4 p : THIS ROUTINE I$ CALLED TO SEARCH THE SPECIFIED SHARED MEMORY MAILBOX 
4 : £3 ; TABLE TO SEE IF THE SPECIFIED MAILBOX ALREADY EXISTS 
4 8 738 : INPUTS: 
408 795 : R11 = ADDRESS OF MAILBOX NAME DESCRIPTOR. 
4 : £96 : SHBADDRGGES = ADDRESS OF SHARED MEMORY CONTROL BLOCK. 
608 738 : OUTPUTS: 
i0s 00 : RO = SUCCESS IF FOUND 
0408 08 : R7 = ADDRESS OF MAILBOX CONTROL BLOCK. 
: 0¢06 04 : EXITS TO UNLOCK_SHMMBX. 
0408 6 : ELSE, NOT FOUND AND 
0408 08 : R7 = ADDRESS OF FIRST UNALLOCATED MAILBOX BLOCK. 
0408 10 : EXITS TO CREATE_SHMMBX 
408 HE : R6 = ADDRESS OF SHARED MEMORY CONTROL BLOCK. 
0408 14 : MAILBOX TABLE MUTEX OWNED, MAILBOX TABLE LOCK OWNED, IPL = 31. 
408 816 SEARCH_SHMMBX: : SEARCH SHARED MEMORY MAILBOXES 
50 O0000000'EF DE 04 17 MOVAL EXESGL_SHMMBMTX,RO iGET A DDRESS OF MAILBOX MUTEX 
00000000'GF 16 041 18 JSB G*SCHSCOCKW LOCK SHARED MEMORY MAILBOX MUTEX 
41 19 SETIPL SHMMBX CODE TOC CODE IN MEMORY 
56 CEB AD DO O41F 0 MOVL SHBADOR(FP) ,R6 [GET ADDRESS OF SHB 
51 be A6 DO 0423 1 MOVL § SHBSL_DATAPAGE(R6),R1  :GET ADDRESS OF MEMORY DATAPAGE 
04 : LOCK  #SHDSV_MBXLCK,SHDSB_FLAGS(R1) ;LOCK MAILBOX TABLE 
08 50 EB 0445 BLBS 4 SCONTINUE IF LOCK ATTEMPT SUCCEEDED 
50 038C 8F ic 0448 4 MOVZWL #SS$_INTERLOCK,R :STORE FINAL STAT 
0086 = 31 440 5 RW UNLOCK _SHMMBX K ERROR : AND EXIT THROUGH COMMON CODE 
57 51 61 «1 136 § 10$:  ADDL3 SHDSL_MBXPTR(R1).R1,R7 ;GET ADDRESS OF FIRST MAILBOX 
7E° 1A Al «3C (0454 8 MOVZWL SHOSWIMBXMAX(R1).-(SP) GET MUMBER OF MAILBOXES 
7E D4 438 ? ae. CLRL  =(SP)~ [SET NO UNALLOCATED ENTRY YET 
20 2° 3 705 01 €1 4A 1 "BBC #MBXSV_VALID,MBX$B_FLAGS(R7),30$ ;IF CLR MAILBOX NOT VALID 
0 A 045F : MOVZBL MBXST_RAME(R?),RO ~ :GET MAILBOX 
0 06 Be f 2D 046 CMPC Cait) =a4(R11),40,- ;MAILBOX NAME MATCH ONE SPECIFIED? 
1 33 46 4 MBX$T_NAME+1(R7) 
1 468 5 BNEQ SIF NEQ NO - TRY NEXT ONE 
SE 46D : ADDL sp i REMOVE MAILBOX COUNT + POINTER 
50 15 Ae A 0470 MOVZBL su6 B_PORT(R6) RO :GET PORT NUMBER 
00 0C a? —(S0—t—s«éESS 474 : ani BBSS! 80° MBRSW_REF(R?) ,35$ SET PORT'S REFERENCE FLAG 
0 1 p0 479 40 " MOVL «= S#SS$_NORMAL RO ISET SUCCESS 
007A are 4 a BRW UNLOCK" SHMMBX : 
f DS 047F rk > tet (SP) sFIND AN UNALLOCATED ENTRY YET? 
12 0481 844 BNEG 40% TIF NEQ YES 


G 13 
sey je RIEIEMARY"STSIBCAMGTESMRCBAEDGe? ECSEECIS GBBE:SS NOTECSEBAISPR,PE,|LR 
6— 57 00 rt ti rf 408: MOVL R7, (SP) sSAVE ADDRESS OF UNALLOCATED ENTRY 
Fuk : Sh Bin ERERSAEM A? HERE BALE LNT see 
< RTH ER HO iy dE lote tds YONA AR 
19331 : SCONTINUE IN CREATE” SHARD 


SYSMAILBX - SYSTEM SERVICES TO CREATE AND otLtte nm SEP=1984 02:23:42 VAX/VMS Macro V04-00 Page 24 
yoee000 CREATE_SHMMBX = CREATE SHARED MEMORY MAI Sep =1 984 8¢:83 48 Heys. SRCJSYSMAILBX.MAR; 1 . (ig) 
49 i .SBTTL CREATE_SHMMBX = CREATE SHARED MEMORY MAILBOX BLOCK 
‘3 $ ; THIS ROUTINE IS CALLED TO CREATE A SHARED MEMORY MAILBOX CONTROL BLOCK. 
49 38 + INPUTS: 
49 60 : R6 = ADDRESS OF SHARED MEMORY CONTROL BLOCK. 
49 61: R7 = ADDRESS OF FIR ST UNALLOCAT ED ENTRY IN MAILBOX TABLE. 
49 6¢ : R8 = BYTE COUNT buor SAGES. 
49 63 ; AO(SPS = SAVED PROCESSOR IPL. 
049 69 ; MAILBOX TABLE MUTEX OWNED, MAILBOX TABLE LOCK OWNED, IPL = 31. 
649 % s OUTPUTS: 
049 69 : RO = SUCCESS OR FAILURE. 
049 29 ; R7 = ADDRESS OF CREATED MAILBOX CONTROL BLOCK. 
049 ie CREATE_SHMMBX : :CREATE SHARED MEMORY MAILBOX 
50 0384 8F 3C 049 7 MOVZWL #SS$_NOSHMBLOCK,RO ; ASSUME NO SLOT A VAILABLE 
57 D3 498 874 Ro ‘WAS A SLOT AVAILABLE? 
30 13 049A 875 BEQL SHMMBX [IF EQL NO “star FOUND 
50 O3AC BF 3C 049C 876 MOVZWL ySes CE RDORTGUOTA RO SASSUME PORT'S MAILBOX LIMIT EXCEEDED 
51 04 A6 DO O4A1 877 MOVL  SHBSC -DATAPAGE (RG) ),R1 3GET DATAPAGE ADDRESS 
52.15 As 9A 04A5 878 MOVZBL SHBSB- PORT(R6), :GET PORT NUMBER 
5C A142 BS OO4A 79 TSTW | SHDSWTMBXQUOTA(R1)CR2)] :DOES PORT HAVE ANY MAILBOX QUOTA LEFT? 
A 15 O4AD 880 BLEQ  UNLOCR_SHMMBX SIF LEQ QUOTA EXHAUSTED 
5¢ A142 B7? O4AF 881 DECW  SHD$W MBXQUOTA(R1)(R2) SDECREMENT pont : Quota 
09 A? «520 90s: 0483 8¢ nove R2,MBX$B_CREATPORT(R?) 3SET CREAT UMBER 
67 7C 0487 88 CLR MBX$Q_MS STRITIALIZE RMESSAGE QUEUE LISTHEAD 
0489 884 ASSUME MBX$W_REF+2 EQ MBX$W_READER 
0489 885 ASSUME MBX$W~ “READERS 2 EQ *RBRSU READAST 
489 886 ASSUME nBxSu- READAST+2 EQ MBX$@Q_WRITAST 
OC A? 7C 0489 887 CLR x$0_ “;INIT REF FLAGS, READER, READAST, AND WRITAS 
OC A? 01 5 78 048C 888 ASHE #17MBX$W_REF (R7) SSET THIS PORT’S REFERENCE FLAG 
16 A? B4 04C1 889 CLRW neKsu’n MSGCNT(R7) iCLEAR MESSAGE COUNT 
14 A7 OC AC B d4c4 90 MOVW § MAXMSG(AP) ,MBXSW_MAXMSG(R7) ;SET MAXIMUM MESSAGE SIZE 
08 12 04C9 891 BNEQ 10$ sIF NEQ MESSAGE SIZE SPECIFIED 
14 A? 00900000" EF BO 04C¢ 89¢ MOV 1ocscu MBX MBXMXMSG MBX$W -MAKMSG(R7) >SET DEFAULT MAXIMUM SIZE 
18 A? 58 BO 04D 93 10$: MOVW QU0(R7) ~ ;SET BUFFER QUOTA 
1A_A? 16 AC BO 0407 894 MOVW Proms at Vloxdy PROT ( cR7s SSET PROTECTION MASK 
1C A? 00BC cs D0 4n¢ 95 MOVL pcast ut (R4) MBRSL_ OWNUIC(R?) ;SET OWNER UIC 
0 4E 9 PUSHR sSAVE MOVC REGISTERS 
00 94 88 C 0464 89 MOVCS (at) §¢R11) #0,- :SET MAILBOX NAME 
1A F 4E9 898 mEXST _NAME+1(R7) ; 
0 BA 4EC 899 POPR 4 acne 4,R55 SRESTORE MOVC REGISTERS 
20 A? 6B. Oé980 AEE 00 MOVB (R11) ,MBXST_NAME ( SET MAILJOX NAME SIZE 
8 A7 02 88 O04F2 901 BISB = #MBXSM_VALID, “MHS 7) acsis ) ;MARK MAILBOX VALID 
1 00 4F6 9 : MOVL § S*#SSS"NORMAL ,RO SET SUCCESS 
4F9 903 UNLOCK_SHMMBX: [UNLOCK SHARED MEMORY MAILBOXES 
51 04 A6 DO 0479 904 nov at DATAPAGE(R6),R1 _:GET ADDRESS OF MEMORY DATAPAGE 
4FD 5 LOCK #SHDS$V_MBXLCK, SHDS6_ FLAGS CRT) sUNLOCK MAILBOX TABLE 
506 8 UNLOCK_ SHRM _ERR SERROR EXIT PATH THAT RELEASES MUTEX 
50 00000000"er 3 3 $ 3 MOVAC ro. xESG SHMMBMTX , RO Ree a atess OF CRAILBOX MU TEX 
00000000 ' GF 13 F 3 3 SB CHEONLOCK [UNLOCK SHARED MEMORY MAILBOX MUTEX 
0 8ED0 0515 910 POPL Ro° SRESTORE EXIT STATUS 
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= SYSTEM SERVICES TO CREATE AND DELETE M "$73 
CREATE _SHMMBX = CREATE SHARED MEMORY MAI 5- 
18 1 SETIPL #IPLS_ASTDEL 
05 18 1 RSB 
1¢ 13 SHMMBX_CODE: 
00000008 if 14 «LONG IPLS$_SYNCH 
52 915 ASSUME 


at bY 9 0G: 83:48 AX/VMS Macro V04-00 Page (fa 


SYS. SRCJSYSMAILBX.MAR; 1 
;RESTORE IPL 
SIPL TO LOCK PREVIOUS CODE IN MEMORY 


5) 


<.°SEARCH_SHMMBX> LE 512 ;CAN ONLY LOCK 1 PAGE 
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SYSMAILBX = SYSTEM SERVICES TO CREATE AND DELETE M 16-SEP-1984 02:23:42 VAX/VMS Macro V04-00 Page 26 
baat CREATE_SHMUCB = CREATE SHARED MEMORY MAI ~$Eb=1382 9¢:88:58 FeYS. SRCJSYSMAILBX.MAR; 1 . (98) 
P .SBTTL CREATE_SHMUCB = CREATE SHARED MEMORY MAILBOX UCB 
; THIS ROUTINE IS CALLED TO CREATE A UCB FOR A SHARED MEMORY MAILBOX. 
: > INPUTS: 
4: R4 = CURRENT PROCESS PCB ADDRESS 
5 3 5; RS = ADDRESS OF TEMPLATE MAILBOX UCB. 
5 $ ; RG = ADDRESS OF SHARED MEMORY CONTROL BLOCK. 
5 927 : R7 = ADDRESS OF SHARED MEMORY MAILBOX CONTROL BLOCK 
5 9 8 : R&B = BYTE COUNT QUOTA FOR MESSAGES. 
Q 3 p ; OUTPUTS 
2 3 : : RO = SUCCESS OR FAILURE 
2 9 3 2: R6 = ADDRESS OF CREATED UCB 
03 0 935 : EXECUTES AT DEVICE IPL, IPL$_MAILBOX. 
9 9 3 $ ; 1/0 DATABASE LOCKED FOR WRITE. 
0520 938 CREATE_SHMUCB: ;CREATE SHARED MEMORY MAILBOX UCB 
0520 939 DSBINT 70$ :Lock out PRQ's until UCB complete and 
b2 A 940 slock this code for high IPL execution. 
FAD3' 30 OQ52A 941 BSBW IOC$COPY_UCB sMake a copy of template UCB. 
68 50 =—E9 B2 D 266 BLBC RO, 20$ ~ ‘Branch if copy operation failed. 
54 A2 OA A? 80 O05 2 94 MOVW MBXSW -UNIT(R7), tEstablish the unit number of the 
09 944 UCB$W-UNIT(R2) inew UCB. 
FACS" 30 0535 945 BSBW = IOCSLINK_UCB ‘Link the new UCB. 
5D 5 E9 0538 946 BLBC RO, 20$ :Branch if Link operation failed. 
009c c2. 56) «=O 0538) S947 MOVL  R6,UCB$L_MB_SHB(R2) SSAVE ADDRESS 0 
o¢ A6 6 340 948 INCL  SHBSL_REFCNT(R6) ‘INCREMENT MEMORY REFEPENCE COUNT 
OOAB C2 a $8 9A 343 949 mOVZBL SHBSB_ PORT (ROD ),UCBSL_MB PORT CR) set tate NUMBER 
0 cs : D0 054¢ «(951 MOVL RS tCasL MBX (R6) :SAVE ADDRESS OF MAILBOX 
QOAO C6 «©O0A0 C6 SOE s«éO'S 51 93¢ MOVAL UCBSL_MB-WIOQFL(R6),UCBSL_ EUIOOFL CRG) zINIT URITE 1/0 REQUEST QUEU 
00OAS C6 00A0 C6 DE 0558 95 MOVAL UCBSL“MB-WIOQFL(R6) ,UCBSL-MB-WIOQBL (RO) 
18 A6 «618 A?) «OBO OCSSF «9S MOVW §MBX$W~BUFFQUO(R7) ,.UCBSW BDOFQUO(R6) :SET BUFFER QUOTA 
42 Ag 14 a7 BO 0564 955 MOVW § MBX$WIMAXMSG(R7) ,UCBSW_DEVBUFSIZ(R6) ;SET MAXIMUM MESSAGE SIZE 
50 1C A6 b6 569 956 UCBSL ORB RO) RO SGET ORB ADDRESS 
0B AO (09 360 95 BISB2 #ORBSA_PROT 16 - acs uss SOGW PROTECTION WOR 
571 958 'ORBSM—NOACC , ORBSB_FLAGS ( sNO ACLS PERMITTED 
0B AO 02 «8A (0571 «2959 BICB2 #ORBSM"ACL QUEUE oRese. FcAes (ROD S THEREFORE, NO QUEU 
04 A0 04 0575 960 ORBSL_ACL_AUTEX(R : AND NO MUTEX 
378 961 ASSUME ORBSL-ACL"DESC EQ ORBSL _ACL_COUNT+4 
8 Ag 7c «(057 3 ORBSL~ACL~ COUNT (RO) D NO ACL PRESENT 
18 AO $e A? iB 378 96 W —- MBXSWIPROT(R7) ,ORBSW PROT(RO) ;SET ere 1ON MASK 
60 1C A7 o 5 964 MOVL § MBXSL-OWNUIC(R?) ,ORBSL_OWN ER(RO) Establ sh owner UIC. 
FCBC ; 584 965 BSB COMP CHARGES Oe SRP b agota ARGES 
2 54 A6 587 966 MOVZWL UCB$Q_UNIT(R6) ,.R2 [GET UNIT NUMe 5 
a ee ee or 
18 A142. 56D e 369 a MOVL RG, best DCMRSTIRI SPro) ;SET UCB ADDRESS i 1DB LIST 
59 359 "  ENBINT yALLOW PRQ PROCESSING NOW 
05 Bi 97¢ RSB ; 
00000008 9C 6974 708: -LONG IPLS_MAILBOX Construct used to temporarily 
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WSTEADE AMO OELETE m ngcsepmtone 09:25:43 AHL aaece,YOK=OR, 4, Paes, 


~SBTTL EXESDELMBX - DELETE MAILBOX 
EXESDELMBX = DELETE MAILBOX 
THIS SERVICE PROVIDES THE CAPABILITY TO MARK A PERMANENT MA 
Behe teen teagpee DELETION OF THE MAILBOX OCCURS WHEN ITS RE 
INPUTS: 
DLCHANCAP) = CHANNEL NUMBER THAT THE MAILBOX TO BE DELETED IS ASSIGNED TO. 
R4 = CURRENT PROCESS PCB ADDRESS. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO MARK MAILBOX FOR DELETE. 


RO = SS$_DEVNOTMBX = SPECIFIED CHANNEL IS NOT ASSIGNED TO A 
MAILBOX. 


RO = SS$_IVCHAN = INVALID CHANNEL NUMBER SPECIFIED. 
RO = $58 peer ty , PROCESS DOES NOT HAVE PRIVILEGE TO Ay A 


TO A DEVICE, OR THE CALLER DOES NOT HAVE SUFFICIENT 
PRIVILEGE 6 ACCESS THE CHANNEL. 


RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = SS$_NORMAL = NORMAL COMPLETION. 
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R 


c 
IF 
LB 
" UCB(R1) sR 
MOVZWL #SS$ Bey VNOTMBX, RO 
ADE VSV. MBX, ucase “ DEVCHAR( 
MOVZWL ass NOPRIV,R 

eBsV _PRMMBX ,UCBSW_ evst 
IFNPRIV PrARG BX720$ 


#UCBSM. DELMBX ,UCBSW_ vevst 
MOVZUL asst NORMAL ,RO 
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OT MAILBOX 
UME ¢ CALLER DOES NOT HAVE | PRIVILEGE 
),10$ ;IF CLR, NOT PERMANENT MAILBOX 
LER HA HAVE PRIVILEGE TO DELETE? 
) MAILBOX FOR DELETION 
NORMAL Cc COMPLETION 


NNN YDVAW<O 
MmAP> -AOUIMMmM mmm 
=—=2rauwst—t S72 -t 


oa 

@ 

SAP od 

ou 

oo 
FOOD $—2—MO00oNoOm 


SOOQCoQoooooooooooooooooooooooo 
RAMON OOLNOOONOS 
nm 


PANAMANIAN 


AEOOOOOoWWW>r>>>r>r rr rrr >r>Y>y 
AEN $9 ODNOU EWN ("OOO NOULSWN oO 
on 
z 
_ 
=z 
< 


ek ad aed td et ds — — — —) — 3 bd 2 2) 2 2 ss 2 a 


SOOoOOCCOOCOCOCOOCOCOCOOOoOoooSoooooooOoOoO 
RIMPMPNINDNIN 2 2 2 SO SS" DOOCOOCSOSOOCSOS 


~ END 


s¢ 


SYSMAILBX 
Symbol table 


ACMODE 
ADPSL_SHB 
ASSIGN 

ASSIGN. IT 
BACKPTR_ INDEX 
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IS5"RET_CEN 
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16-CODE LEN 
16-RET_CEN 
I108$L_OCBLST 
IOCSCAKMBXQUOTA 
IOCSCLONE_UCB 
1oc$coPy_ OCB 
IOCSCVT_BEVNAM 
IOCSDEBTT UCB 
IOCSFFCHAR 
IOCSGL_DEVLIS 
1OC$GW_MBXBF QUO 
1OC$GW-MBXMXMSG 
IOCSLINK_UCB 
IOCSVERIFYCHAN 
IPL$_ASTDEL 
IPL$_MAILBOX 
IPL$_SYNCH 

KRP 
LNMSC_NAMLENGTH 
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LNMS$M- TERMINAL 
LNMS$_ATTRIBUTES 
LN NDEX 
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Y L e SY V ND DEL “SEP- 325: X/VMS Macro V04- Page 
SYSMAILBX SYSTEM SERVICES TO CREATE AND DELETE M 16-SEP-1984 4 AX/VMS 04-00 3 
Symbol table -SEP-1984 05:55:2 SYS.SRCIJSYSMAILBX.MAR; 1 (17) 
NONAME 143 R 02 oan END_LIST = FFFFFFBO 
ORBS$B_FLAGS = 8 UCB$B_TYPE = A 
ORBSL_ACL_COUNT = UCBSL_CRB s 4 
ORBSL_ACL_DESC = ¢ UCBSL_DEVCHAR = 8 
ORBSL_ACL MUTEX z 4 UCBSL_DEVDEPEND = 44 
ORBSL_ R = UCBSL_LOGADR = 74 
ORBSM_ACL_ QUEUE = UCBSL_MB_MBX = H 
BSA _ = 00 3 UCBSL_MB_PORT = 000 A 
ORBSM_PROT_16 = 8 1 UCBSL_MB_SHB = 3 9C 
ORBSW_PROT = 000 8 8 UCBSL_MB_WIOQBL = QOA4 
PCBSL_UIC = C UCBSL_MB WIOQFL = 00 AO 
PCBSQ_ PRIV = 8 8 4 UCBS$L_ORB = 8 1¢ 
PRS$_IPL = 12 UCBSL_PID = 55 
PRMFLG 00000004 UCBSM_DELMBX = 000000 
S$ 4444 UCBSV_PRMMBX = 4 
PRVSV_PRMMBX = 8 0 one UCBSV_SHMMBX = +4 0 
PRVSV_SHMEM = 00000018 UCB$W_BUF QUO = 88 4 tha 
PRVSV_TMPMBX = sea ie UCBSW_CHARGE = 0000005 
RETURN QOOOOIES R 02 UCB$W_DEVBUF SIZ = 4449 
SAVABS... = FFFFFF9O UCBSW_DEVSTS = 0000006 
SCHSIOLOCKW eeeeenee =X 0 UCBSW_REFC = 0000005C¢ 
SCHSIOUNLOCK eeeeenee =X 0 UCBSW_SIZE = 00000008 
SCHSLOCKW eeeeeeee = X 0 UCBSW_UNIT = 00000054 
SCHSUNLOCK eteekeee > UCB_ADDRESS FFFFFFE4 
SEARCH _MBXUCB 00000285 R 0 UCB_ADDR_ SIZE = FRFFFFB4 
SEARCH_SHMMBX 0000040B R 0 UNL CK_SAMMBX 000004F9 R 02 
SHAREDMEM 44 9h R 0 UNLOCK_ SHMMBX_ERROR 00000506 R 02 
SHBS$B_FLAGS = 0000000 VECSL_ADP = 00000014 
BS$B_PORT = 0000001 VECSL_IDB = 00000008 
SHBSL_DATAPAGE = 00000004 ZERO_INDEX = FFFFFFFO 
HBSL_LINK = 00000000 
SHBSL_REF CNT = sit 4 4 9 
V_ CONNECT = 00000000 
Br FFFFFFE8 
SHD$B_FLAGS = 0000009F 
SHD$C_NAMLENGTH = 00000010 
SHDSL_MBXPTR = sit 4 
SHD$T_NAME = it g 
SHDSV_MBXLCK = 0000000 
SHD$W_MBXMAX = 4449s 
SHD$W_MBXQUOTA = sii 5C 
S X_CODE 0 44 594 R 02 
SS$_ACCVIO = 00000 of 
S$S$_DEVNOTMBX = B38 4 
SS$_EXPORTQUOTA = AC 
SS$_INTERLOCK = 44 C 
SS$_IVLOGNAM = 00000154 
SS$_IVSTSFLG = 8 17C 
SS$_NOPRIV = 000 4 
SS$_NORMAL = 8 0001 
S$S$_NOSHMBLOCK = Pd 
$S$_SHMNOTCNCT = 0000037C 
SYSSCRELNM teeeeree GX 
SYSSDASSGN eeeeeenre GX 
SYSSDELMBX teeneere GX 
SYSSTRNLNM eeeneere GX 
TO_EXIT_LOWER_IPL 0000010A R 
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PSECT name Allocation PSECT No. Attributes 
5% 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS~ LCL NO 
$ FFFFFFFC ¢ 0.) 1 ¢( #1.) NOPIC USR CON ABS LCL NOSHR 
YSEXEPAGED QOOOOSCF (¢ 1487.) 2¢ 2.) NOPIC USR CON REL LCL NO 
eS ees 
! ! Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 37 00:00:00.08 00:00:01.31 
Command processing 130 se 684 SE 88:88 Bao 
Pass 494 Bp +88 60-8 00:00:53.71 
Symbol table sort 0 00:00:02.96 BF RO 8 aI 
Pass 2 199 00:00:04.21 0:00:09.07 
Symbol table output 25 00:00:00.19 00:00:00.41 
Psect synopsis output 2 00:00:00.01 00:00:00.02 
Cross-reference output 0 00:00:00.00 09:00:00.00 
Assembler run totals 889 00:00:28.64 00:01:13.87 


ihe working set Limit was 1950 pages. 
116811 bytes (229 pages) of virtual memory were used to buffer the intermediate c 


There were 100 pages of symbol table space allocated to hold 1914 non-local and 99 lecet symbols. 


1026 source Lines were read in Pass 1, ge ag object records in Pass 2. 
49 pages of virtual memory were used to define 47 macros. 
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Macro Library name Macros defined 
“$255$DUA28: SYS.OBJJLIB.MLB;1 26 
~$255$DUA28: CSYSLIBJSTARLET.MLB;2 18 

TOTALS (all Libraries) 44 


2124 GETS were required to define 44 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSMAILBX/OBJ=0BJ$:SYSMAILBX MSRC$:SYSMAILBX/UPDATE=(ENHS$: SYSMAILBX) +EXECML$/LIB 


$v mAYLOX: MAR; 1 


SHR aq NOEXE = — , over BYTE 
UAT NOVEC BYTE 
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VeU0 VAX/VMS_V4.0_ : D PROPRIETARY 


